Aminet 1 (Walnut Creek)/Aminet - June 1993 [Walnut Creek].iso/usenet/sources/volume89/intuitin/dmouse12.1

Text File | 1989-08-21 | 71KB | 2,659 lines

Path: xanth!ames!sun-barr!newstop!sun!swap!page
From: [e-mail] (Bob Page)
Newsgroups: comp.sources.amiga
Subject: v89i172:  dmouse - mouse accelerator, screen blanker etc v1.20
Message-ID: <[e-mail]>
Date: 21 Aug 89 06:47:06 GMT
Sender: [e-mail]
Lines: 2648
Approved: [e-mail]

Submitted-by: [e-mail] (Matt Dillon)
Posting-number: Volume 89, Issue 172
Archive-name: intuition/dmouse120.1

DMouse V1.20 & DLineArt

The latest version of DMouse.  Also included is Steve -Raz- Berry's
DLineArt screen blanker program.  Simply run DLineArt after installing
DMouse and DMouse will use DLineArt for a screen blanker instead of its
own dull internal blanker.

DMouse no longer requires dres.library and will now compile under either
Manx C or Lattice C.  DLineArt currently compiles only under Manx C.

# This is a shell archive.
# Remove anything above and including the cut line.
# Then run the rest of the file through 'sh'.
# Unpacked files will be owned by you and have default permissions.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# shar: SHell ARchive
# Run the following text through 'sh' to create:
#    DMakefile.Aztec
#    DMakefile.Lattice
#    README
#    blanker.c
#    dlineart.c
#    dlineart.doc
#    dmouse-handler.c
#    dmouse-ipc.doc
#    dmouse.c
#    dmouse.doc
#    dmouse.h
# This is archive 1 of a 1-part kit.
# This archive created: Sun Aug 20 23:45:39 1989
echo "extracting DMakefile.Aztec"
sed 's/^X//' << \SHAR_EOF > DMakefile.Aztec
X
X#   DMakefile for DMouse, Aztec C V3.6a
X#
X#   +L = 32 bit ints
X
XSYMS=    aztec_include:symbols.m
XCFLAGS= +L +I$(SYMS)
XOD  = atmp:dmouse/
X
XDMOUSE        = sys:altc/dmouse
XHANDLER     = l:dmouse-handler
XBLANKER     = srcc:blanker
XLINEART     = srcc:dlineart
X
Xall: $(DMOUSE) $(HANDLER) $(BLANKER) $(LINEART)
X
X$(DMOUSE) : $(OD)dmouse.o
X    ln +Q %(right) -lsup32 -lc32 -o %(left)
X
X$(HANDLER) : $(OD)dmouse-handler.o
X    ln +Q %(right) -lsup32 -lc32 -o %(left)
X
X$(BLANKER) : $(OD)blanker.o
X    ln +Q %(right) -lsup32 -lc32 -o %(left)
X
X$(LINEART) : $(OD)dlineart.o
X    ln +Q %(right) -lsup32 -lm32 -lc32 -o %(left)
X
X$(OD)dmouse.o $(OD)blanker.o : dmouse.c blanker.c
X    cc $(CFLAGS) %(right) -o %(left)
X
X$(OD)dmouse-handler.o : dmouse-handler.c
X    cc +B $(CFLAGS) %(right) -o %(left)
X
X
SHAR_EOF
echo "extracting DMakefile.Lattice"
sed 's/^X//' << \SHAR_EOF > DMakefile.Lattice
X
X#   DMakefile for DMouse,    Lattice C V5.03.99 and beyond
X
XSYMS=    lattice_include:symbols.m
X#CFLAGS= -iprivate_include: -cimq -O -v -rr -H$(SYMS)
XCFLAGS= -iprivate_include: -cimq -O -v -rr
X
XOD  = ltmp:dmouse/
X
XDMOUSE        = dhb:altc/dmouse
XHANDLER     = l:dmouse-handler
XBLANKER     = srcc:blanker
XLINEART     = srcc:dlineart
XLIBS        = lib:sup32.lib lib:lcr.lib lib:amiga.lib
X
X#SRCS         = blanker.c dmouse.c dmouse-handler.c dlineart.c
XSRCS        = dmouse.c dmouse-handler.c blanker.c
XOBJS        = $(SRCS:"*.c":"$(OD)*.o")
X
X#all: $(DMOUSE) $(HANDLER) $(BLANKER) $(LINEART)
Xall: $(DMOUSE) $(HANDLER) $(BLANKER)
X
X$(DMOUSE) : $(OD)dmouse.o
X    blink FROM LIB:c.o %(right) LIB $(LIBS) TO %(left) BATCH
X
X$(HANDLER) : $(OD)dmouse-handler.o
X    blink FROM %(right) LIB $(LIBS) TO %(left) BATCH
X
X$(BLANKER) : $(OD)blanker.o
X     blink FROM LIB:c.o %(right) LIB $(LIBS) TO %(left) BATCH
X
X#$(LINEART) : $(OD)dlineart.o
X#    blink FROM LIB:c.o %(right) LIB $(LIBS) TO %(left) BATCH
X
X$(OBJS) : $(SRCS)
X    lc $(CFLAGS) -o%(left) %(right)
X
X
SHAR_EOF
echo "extracting README"
sed 's/^X//' << \SHAR_EOF > README
X
X            README FILES FOR DMOUSE DISTRIBTION
X
X    Note, checkout the DMakefile's for required assignments before attempting
X    to make the source.  The 'dmake' program makes the source.
X
XDMakefile.Lattice    Lattice V5.02 DMakefile for dmake
XDMakefile.Aztec     Aztec V3.6a   DMakefile for dmake
X
Xdmouse.doc        documentation
Xdmouse.c        source
Xdmouse.h        source
Xdmouse-handler.c    source
X
Xblanker.c        source to example blanker
Xdlineart.c        (currently compiles under Aztec C only)
X
Xlocal/*.h        general includes (from sup32.lib.  you need these to
X            compile DMouse as well as the link library binary)
X
Xdmake            required to compile the source
X
Xdmouse            dmouse executable.  control program
Xl:dmouse-handler    dmouse-handler should go into l:
X
X
X            Quick Installation
X           Please read the documentation!
X
X1> dmouse            -install dmouse
X1> dmouse quit            -quit out of dmouse
X1> dmouse help            -show available options for dmouse
X
SHAR_EOF
echo "extracting blanker.c"
sed 's/^X//' << \SHAR_EOF > blanker.c
X
X/*
X *  BLANKER.C
X *
X *  Example external screen blanker for DMouse.
X */
X
X#include <local/typedefs.h>
X#include <local/ipc.h>
X#include <local/xmisc.h>
X
X#ifdef LATTICE
X#include <dos.h>
X#include <stdio.h>
X#include <stdlib.h>
X#include <string.h>
X
Xint __stdargs CXBRK(void);
X
X__stdargs    /*  bug in lcr.lib  */
XCXBRK()
X{
X    return(0);
X}
X
X#else
Xextern int Enable_Abort;    /*    CLI break enable    */
X#endif
X
X
X#define RATE    1000000
X
Xtypedef struct IORequest IORequest;
X
Xstatic SCR *Scr;
Xstatic TA   Ta = {  (ubyte *)"topaz.font", 8 };
Xstatic NS   Ns = {  0, 0, 320, -1, 1, -1, -1, 0, CUSTOMSCREEN|SCREENQUIET, &Ta };
X
Xstatic IOT Iot;
Xstatic char Ioip;
Xstatic char *TStr = "Blank";
Xstatic char *TSpa = "     ";
Xstatic long TLen = 5;
X
Xvoid main ARGS((int, char **));
Xvoid screenon ARGS((void));
Xvoid screenoff ARGS((void));
Xvoid screengraphics ARGS((void));
Xlong myrand ARGS((void));
X
Xvoid
Xmain(ac,av)
Xchar **av;
X{
X    PORT *dmport;
X    PORT *ipport;
X    PORT *tp;
X    IORequest    AddReq;
X    IORequest    RemReq;
X    char foo;    /*  dummy   */
X    char notdone = 1;
X
X#ifndef LATTICE
X    Enable_Abort = 0;
X#endif
X
X    tp       = CreatePort(NULL, 0);
X    ipport = CreatePort(NULL, 0);
X
X    AddReq.io_Message.mn_ReplyPort = ipport;
X    AddReq.io_Command = 0x84;
X    AddReq.io_Unit = (struct Unit *)&foo;
X    AddReq.io_Flags = 0x0C;    /* %1100 (screen blanker, no mouse blanker) */
X
X    RemReq.io_Message.mn_ReplyPort = ipport;
X    RemReq.io_Command = 0x85;
X    RemReq.io_Unit = (struct Unit *)&foo;
X
X    if (openlibs(INTUITION_LIB|GRAPHICS_LIB) == 0)
X    goto fail;
X    if (OpenDevice("timer.device", UNIT_VBLANK, &Iot, 0)) {
X    Write(Output(), "Unable to open timer.device\n", 28);
X    goto fail;
X    }
X    Iot.tr_node.io_Message.mn_ReplyPort = tp;
X    Iot.tr_node.io_Command = TR_ADDREQUEST;
X
X    SetSignal(0, SIGBREAKF_CTRL_C);
X    Forbid();
X    if (dmport = FindPort("DMouse.ipc"))
X    PutMsg(dmport, &AddReq.io_Message);
X    Permit();
X    if (dmport == NULL) {
X    puts("DMouse not running or <V1.20");
X    goto fail;
X    }
X
X    while (notdone) {
X    long mask = (1 << tp->mp_SigBit) | (1 << ipport->mp_SigBit) | SIGBREAKF_CTRL_C;
X    mask = Wait(mask);
X
X    if (mask & SIGBREAKF_CTRL_C) {
X        notdone = 0;
X    }
X    if ((mask & (1 << tp->mp_SigBit)) && Scr && Ioip && CheckIO(&Iot)) {
X        WaitIO(&Iot);
X        Iot.tr_time.tv_secs  = RATE / 1000000;
X        Iot.tr_time.tv_micro = RATE % 1000000;
X        SendIO(&Iot);
X        screengraphics();
X    }
X    if (mask & (1 << ipport->mp_SigBit)) {
X        IORequest *ior;
X        while (ior = (IORequest *)GetMsg(ipport)) {
X        if (ior->io_Message.mn_Node.ln_Type == NT_REPLYMSG) {   /* my AddHand req */
X            notdone = 0;
X            continue;
X        }
X        switch(ior->io_Command) {
X        case 0x80:
X        case 0x81:
X            break;
X        case 0x82:
X            screenon();
X            break;
X        case 0x83:
X            screenoff();
X            break;
X        case 0x86:
X            notdone = 0;
X            break;
X        }
X        ReplyMsg(&ior->io_Message);
X        }
X    }
X    }
X    PutMsg(dmport, &RemReq.io_Message);
X    WaitMsg(&RemReq);
X    {
X    register IORequest *ior = NULL;
X    while (ior != &AddReq) {    /*  last msg will be AddReq */
X        WaitPort(ipport);
X        ior = (IORequest *)GetMsg(ipport);
X        if (ior->io_Message.mn_Node.ln_Type == NT_MESSAGE)
X        ReplyMsg(&ior->io_Message);
X    }
X    }
Xfail:
X    if (Ioip) {
X    AbortIO(&Iot);
X    WaitIO(&Iot);
X    }
X    if (Iot.tr_node.io_Device)
X    CloseDevice(&Iot);
X    if (tp)
X    DeletePort(tp);
X    if (ipport)
X    DeletePort(ipport);
X    closelibs(-1);
X}
X
Xvoid
Xscreenoff()
X{
X    if (Scr)
X    ScreenToFront(Scr);
X    else if (Scr = OpenScreen(&Ns)) {
X    if (!Ioip) {
X        Iot.tr_time.tv_secs  = 3;
X        Iot.tr_time.tv_micro = 0;
X        SendIO(&Iot);
X        Ioip = 1;
X    }
X    }
X}
X
Xvoid
Xscreenon()
X{
X    if (Scr)
X    CloseScreen(Scr);
X    Scr = NULL;
X    if (Ioip) {
X    AbortIO(&Iot);
X    WaitIO(&Iot);
X    Ioip = 0;
X    }
X}
X
X/*
X *  Simple Stupid
X *
X *  Warning:  Note that no clipping is done when using the screen's
X *          rastport, all rendering must be IN BOUNDS!
X */
X
Xvoid
Xscreengraphics()
X{
X    static short oldx, oldy;
X    short x, y;
X
X    x = (myrand() & 4095) % (Scr->Width - TextLength(&Scr->RastPort, TStr, TLen) - 8);
X    y = (myrand() & 4095) % (Scr->Height- Scr->RastPort.TxHeight - Scr->RastPort.TxBaseline - 8);
X    if (x < 0 || y < 0)
X    return;
X    y += Scr->RastPort.TxBaseline + 4;
X
X    SetAPen(&Scr->RastPort, 0);
X    Move(&Scr->RastPort, oldx, oldy);
X    Text(&Scr->RastPort, TSpa, TLen);
X
X    oldx = x;
X    oldy = y;
X    SetRGB4(&Scr->ViewPort, 1, myrand()&15, myrand()&15, myrand()&15);
X
X    SetAPen(&Scr->RastPort, 1);
X    Move(&Scr->RastPort, oldx, oldy);
X    Text(&Scr->RastPort, TStr, TLen);
X}
X
X
Xlong
Xmyrand()
X{
X    static long rv = 34987;
X    rv = (rv * 13 + 1) ^ (rv >> 13);
X    return(rv);
X}
X
X
X
SHAR_EOF
echo "extracting dlineart.c"
sed 's/^X//' << \SHAR_EOF > dlineart.c
X
X/*
X *  DLineArt.c
X *
X *  DMouse screen blanker for use with DMouse V1.20
X *
X *  read the docs file for installation procedures.
X *
X *  Is your computer BORED? If so, then you need...
X *
X *        DLineArt, by Steve -Raz- Berry with help
X *        from Matt Dillon.
X *
X *  Compile +L w/ sup32.lib.  libs:dres.library no longer required
X */
X
X#include <local/typedefs.h>
X#include <local/ipc.h>
X#include <local/xmisc.h>
X
Xtypedef struct IORequest IORequest;
X
X#define MAXELLIPSE 75
X
X/* Be carefule if modifiying the following defines... */
X
Xint MAXX, MAXY;
X
X#define MINBOUND 20
X#define BOUNDX MAXX-MINBOUND
X#define BOUNDY MAXY-MINBOUND
X
X#define TEXTSTR 0x10
X#define SPLINES 0x8
X#define LINES 0x4
X#define BOXES 0x2
X#define ELLIPSES 0x1
X
X/* Maximun # of lines,boxes,ellipses to draw (watch your stack!) */
X
X#define MAXLINES 500
X
XUWORD coltbl[2] = {
X    0x000,        /* background color */
X    0x500
X};
X
Xextern int Enable_Abort;
X
XRP *rp;
XVP *vp;
Xstatic SCR *Scr;
Xstatic WIN *Win;
Xstatic TA   Ta = {  (ubyte *)"topaz.font", 11 };
Xstatic NS   Ns = {  0, 0, 0, 0, 1, -1, -1, HIRES|LACE, CUSTOMSCREEN|SCREENQUIET, &Ta };
Xstatic NW   Nw = { 0, 0, 0, 0, 2, 1, NULL, BORDERLESS|NOCAREREFRESH|BACKDROP,
XNULL, NULL,NULL,NULL,NULL,0,0,8000,8000,CUSTOMSCREEN};
X
Xstatic long offset, scale1, scale2, flags;
Xstatic long count, trails, nice, all;
Xstatic long input, maxlines, ctemp;
Xstatic long point1[MAXLINES+1][2], point2[MAXLINES+1][2], direction[2][2];
X
Xstatic char *TStr = "BOING!";
Xstatic long TLen = 6;
X
Xvoid
XInitScrStructures()
X{
X    SCR scr;
X    if (GetScreenData(&scr, sizeof(scr), WBENCHSCREEN, NULL)) {
X    if (scr.ViewPort.Modes & HIRES)
X        MAXX = scr.Width;
X    else
X        MAXX = scr.Width * 2;
X    if (scr.ViewPort.Modes & LACE)
X        MAXY = scr.Height;
X    else
X        MAXY = scr.Height * 2;
X    } else {
X    MAXX = 640;
X    MAXY = 200;
X    }
X    Ns.Width  = MAXX;
X    Nw.Width  = MAXX;
X    Ns.Height = MAXY;
X    Nw.Height = MAXY;
X}
X
Xmain(argc,argv)
Xint argc;
Xchar *argv[];
X{
X    int var;
X    IORequest AddReq;    /* for dmouse ipc    */
X    IORequest RemReq;
X    PORT    *dmport;
X    PORT    *ipport;
X    char    foo;    /*  dummy variable, address used as id    */
X    short   notdone = 1;
X
X    input  = 3;     /* Some defaults for switches */
X    trails = 1;
X    maxlines = 20;
X    nice  = FALSE;
X    all   = FALSE;
X    flags = LINES;
X
X
X    Enable_Abort = 0;
X
X    while(--argc >= 1) {
X    switch (argv[argc][0]) {
X        case '-':
X        switch (argv[argc][1]) {
X            case 'T':
X            flags = TEXTSTR;
X            TStr = &argv[argc][2];
X            if (TStr[0] != \0)
X                TLen = strlen(TStr);
X            break;
X            case 's':
X            flags = SPLINES;
X            break;
X            case 't':
X            trails = 0;
X            break;
X            case 'n':
X            nice = TRUE;
X            break;
X            case 'l':
X            maxlines = atoi(&argv[argc][2]);
X            maxlines = (maxlines > MAXLINES) ? MAXLINES : (maxlines < 1) ? 1 : maxlines;
X            break;
X            case 'c':
X            ctemp = atoi(&argv[argc][2]);
X            coltbl[1] = (ctemp > 4096) ? 4096 : (ctemp < 1) ? 1 : ctemp;
X            break;
X            case 'b':
X            flags = BOXES;
X            break;
X            case 'e':
X            flags = ELLIPSES;
X            break;
X            case 'a':
X            all = TRUE;
X            break;
X            default:
X            exit(20);
X        }
X        break;
X        default:
X        input = atoi(argv[argc]);
X        break;
X    }
X    }
X
X    input = (input > 9) ? 9 : (input < 0) ? 1 : input;
X
X    count = 0;
X    scale1 = 2;
X    scale2 = 2;
X    offset = 0;
X
X    ipport = CreatePort(NULL, 0);   /*  ipc port    */
X
X    if (openlibs(INTUITION_LIB|GRAPHICS_LIB) == 0)
X    goto fail;
X
X    InitScrStructures();
X
X    for(var = 0; var < VBeamPos(); ++var)
X    get_rand_point();
X
X    point1[0][0] = get_rand_point();    /* Initial start x,y (one endpoint) */
X    point1[0][1] = get_rand_point();
X
X    point2[0][0] = get_rand_point();
X    point2[0][1] = get_rand_point();
X
X    for(var = 0; var < 2; ++var){
X    direction[var][0] = get_rand_dir();
X    direction[var][1] = get_rand_dir();
X    }
X
X    AddReq.io_Message.mn_ReplyPort = ipport;
X    AddReq.io_Command = 0x84;
X    AddReq.io_Unit = (struct Unit *)&foo;
X    AddReq.io_Flags = 0x0C;    /* %1100 (screen blanker, no mouse blanker) */
X
X    RemReq.io_Message.mn_ReplyPort = ipport;
X    RemReq.io_Command = 0x85;
X    RemReq.io_Unit = (struct Unit *)&foo;
X
X    Forbid();
X    if (dmport = FindPort("DMouse.ipc"))
X    PutMsg(dmport, &AddReq.io_Message);
X    Permit();
X    if (dmport == NULL) {
X    puts("DMouse not running or <V1.20");
X    goto fail;
X    }
X
X    while (notdone) {
X    long mask = SIGBREAKF_CTRL_C | (1 << ipport->mp_SigBit);
X    if (Scr)
X        mask = SetSignal(0L, mask);
X    else
X        mask = Wait(mask);
X
X    if (mask & SIGBREAKF_CTRL_C)
X        notdone = 0;
X    if (mask & (1 << ipport->mp_SigBit)) {
X        IORequest *ior;
X        while (ior = (IORequest *)GetMsg(ipport)) {
X        if (ior->io_Message.mn_Node.ln_Type == NT_REPLYMSG) {
X            notdone = 0;
X            continue;
X        }
X        switch(ior->io_Command) {
X        case 0x82:
X            screenon();
X            break;
X        case 0x83:
X            screenoff();
X            break;
X        case 0x86:
X            notdone = 0;
X            break;
X        }
X        ReplyMsg(&ior->io_Message);
X        }
X    }
X    if (Win)
X        LineArt();
X    }
X    screenon();
X    PutMsg(dmport, &RemReq.io_Message);
X    {
X    register IORequest *ior = NULL;
X    while (ior != &AddReq) {
X        WaitPort(ipport);
X        ior = (IORequest *)GetMsg(ipport);
X        if (ior->io_Message.mn_Node.ln_Type == NT_MESSAGE)
X        ReplyMsg(&ior->io_Message);
X    }
X    }
Xfail:
X    DeletePort(ipport);
X    closelibs(-1);
X}
X
Xscreenoff()
X{
X    if (Scr)
X    ScreenToFront(Scr);
X    else if (Scr = OpenScreen(&Ns)) {
X    Nw.Screen = Scr;
X    if (Win = OpenWindow(&Nw)){
X        vp = &Scr->ViewPort;
X        rp = Win->RPort;
X        LoadRGB4(vp,coltbl,2L);
X    }
X    ShowTitle(Scr, FALSE);
X    }
X}
X
Xscreenon()
X{
X    if (Win)
X    CloseWindow(Win);
X    if (Scr)
X    CloseScreen(Scr);
X    Win = NULL;
X    Scr = NULL;
X    vp = NULL;
X    rp = NULL;
X}
X
XLineArt()
X{
X    register int newoffset, tempx, tempy;
X
X    SetAPen(rp, 1L);
X
X    if (nice)
X    WaitTOF();
X
X    switch (flags) {
X    case LINES:
X    Move(rp, point1[offset][0], point1[offset][1]);
X    Draw(rp, point2[offset][0], point2[offset][1]);
X    break;
X    case ELLIPSES:
X    doellipse(offset);
X    break;
X    case BOXES:
X    dobox(offset);
X    break;
X    case SPLINES:
X    dospline(offset);
X    break;
X    case TEXTSTR:
X    doteresa(offset);
X    break;
X    }
X
X    if (checkbounce1(offset)) {
X    tempx = direction[0][0];
X    tempy = direction[0][1];
X
X    direction[0][0] = (point1[offset][0] <= MINBOUND) ? 1 :
X    (point1[offset][0] >= BOUNDX) ? -1 :
X    get_rand_dir();
X
X    direction[0][1] = (point1[offset][1] <= MINBOUND) ? 1 :
X    (point1[offset][1] >= BOUNDY) ? -1 :
X    get_rand_dir();
X
X    scale1 = get_rand_scale();
X    }
X
X    if (checkbounce2(offset)) {
X    tempx = direction[1][0];
X    tempy = direction[1][1];
X
X    direction[1][0] = (point2[offset][0] <= MINBOUND) ? 1 :
X    (point2[offset][0] >= BOUNDX) ? -1 :
X    get_rand_dir();
X
X    direction[1][1] = (point2[offset][1] <= MINBOUND) ? 1 :
X    (point2[offset][1] >= BOUNDY) ? -1 :
X    get_rand_dir();
X
X    scale2 = get_rand_scale();
X    }
X
X    if ((++count > 60000) | (count > 2500 && (flags == ELLIPSES))) {
X    count = maxlines;
X    if (trails == 0 | all) {
X        count = 0;
X        offset = 0;
X        Move(rp, 0, 0);
X        ClearScreen(rp);
X    }
X    if (all) {
X        flags = flags << 1;
X        if (flags > TEXTSTR)
X        flags = ELLIPSES;
X    }
X    }
X
X    if (++offset > maxlines){
X    coltbl[1]++;
X    LoadRGB4(vp,coltbl,2L);
X    if ((coltbl[1] && 0x00f) > 0xb) {
X        coltbl[1] = coltbl[1] & 0xff0;
X        coltbl[1] += 0x010;
X    }
X    if ((coltbl[1] && 0x0f0) > 0xb0) {
X        coltbl[1] = coltbl[1] & 0xf0f;
X        coltbl[1] += 0x100;
X    }
X    if ((coltbl[1] && 0xf00) > 0xb00) {
X        coltbl[1] = ctemp;
X    }
X    }
X
X    if (offset > maxlines)
X    offset = 0;
X
X    /* Erase the oldest line... (or ellipse) */
X
X    if (count > maxlines-1) {
X    newoffset = (offset == maxlines) ? 0 : offset + trails;
X    SetAPen(rp, 0L);
X    switch (flags) {
X    case LINES:
X        Move(rp, point1[newoffset][0], point1[newoffset][1]);
X        Draw(rp, point2[newoffset][0], point2[newoffset][1]);
X        break;
X    case ELLIPSES:
X        doellipse(newoffset);
X        break;
X    case BOXES:
X        dobox(newoffset);
X        break;
X    case SPLINES:
X        dospline(newoffset);
X        break;
X    case TEXTSTR:
X        doteresa(newoffset);
X        break;
X    }
X    SetAPen(rp, 1L);
X    }
X
X    /* Calculate the next point */
X
X    newoffset = (offset > 0) ? offset-1 : maxlines;
X    point1[offset][0] = (scale1 * direction[0][0]) + point1[newoffset][0];
X    point1[offset][1] = (scale1 * direction[0][1]) + point1[newoffset][1];
X
X    if (flags != TEXTSTR){
X      point2[offset][0] = (scale2 * direction[1][0]) + point2[newoffset][0];
X      point2[offset][1] = (scale2 * direction[1][1]) + point2[newoffset][1];
X    } else {
X      point2[offset][0] = point1[offset][0] + TextLength(rp, TStr, TLen);
X      point2[offset][1] = point1[offset][1];
X    }
X}
X
Xdoteresa(offset)
Xint offset;
X{
X    register short x,y;
X
X    x = (Scr->Width - TextLength(rp, TStr, TLen) - 20);
X    y = (Scr->Height- Scr->RastPort.TxHeight - Scr->RastPort.TxBaseline - 8);
X
X    if (x < 0 || y < 0)
X    return;
X
X    x = (x < point1[offset][0]) ? x : point1[offset][0];
X    y = (y < point1[offset][1]) ? y : point1[offset][1];
X
X    Move(rp, x, y);
X    Text(rp, TStr, TLen);
X}
X
Xdoellipse(newoffset)
Xregister int newoffset;
X{
X    register int tempx,tempy;
X
X    tempx = (point2[newoffset][0] > point1[newoffset][0]) ?
X    point2[newoffset][0] - point1[newoffset][0] :
X    point1[newoffset][0] - point2[newoffset][0];
X
X    tempy = (point2[newoffset][1] > point1[newoffset][1]) ?
X    point2[newoffset][1] - point1[newoffset][1] :
X    point1[newoffset][1] - point2[newoffset][1];
X
X    tempx = (tempx > point1[newoffset][0]) ? point1[newoffset][0] :
X    ((tempx + point1[newoffset][0]) > BOUNDX) ? BOUNDX - point1[newoffset][0] :
X    tempx;
X
X    tempy = (tempy > point1[newoffset][1]) ? point1[newoffset][1] :
X    ((tempy + point1[newoffset][1]) > BOUNDY) ? BOUNDY - point1[newoffset][1] :
X    tempy;
X
X    tempx = (tempx > MAXELLIPSE) ? MAXELLIPSE : tempx;
X    tempy = (tempy > MAXELLIPSE) ? MAXELLIPSE : tempy;
X
X    if (tempx > 0 && tempy > 0)
X    DrawEllipse(rp, point1[newoffset][0], point1[newoffset][1], tempx, tempy);
X}
X
Xdobox(offset)
Xregister int offset;
X{
X    register int tempx, tempy;
X
X    Move(rp, point1[offset][0], point1[offset][1]);
X    Draw(rp, point2[offset][0], point2[offset][1]);
X
X    tempx = MAXX - point1[offset][0];
X    tempy = MAXY - point1[offset][1];
X
X    if (tempx >= 0 && tempy >= 0)
X    Draw(rp, tempx, tempy);
X
X    tempx = MAXX - point2[offset][0];
X    tempy = MAXY - point2[offset][1];
X
X    if (tempx >= 0 || tempy >= 0)
X    Draw(rp, tempx, tempy);
X
X    Draw(rp, point1[offset][0], point1[offset][1]);
X}
X
Xlong checkbounce1(index)
Xregister int index;
X{
X
X    return (point1[index][0] >= BOUNDX) | (point1[index][1] >= BOUNDY) |
X        (point1[index][0] <= MINBOUND) | (point1[index][1] <= MINBOUND);
X}
X
Xlong checkbounce2(index)
Xregister int index;
X{
X    return (point2[index][0] >= BOUNDX) | (point2[index][1] >= BOUNDY) |
X        (point2[index][0] <= MINBOUND) | (point2[index][1] <= MINBOUND);
X}
X
Xint get_rand_point()
X{
X    register short temp;
X
X    temp = ran();
X    if (temp < 0)
X    temp = temp * -1;
X    temp = temp/319+19;
X
X    return (temp > MAXY) ? MAXY : temp ;
X}
X
Xint get_rand_dir()
X{
X    register short num;
X
X    num = ran((short)3);
X
X    return (num < -5000) ? -1 : (num > 5000) ? 1 : 0;
X}
X
Xint get_rand_scale()
X{
X    register short temp;
X
X    temp = ran();
X    if (temp < 0)
X    temp = temp * -1;
X    temp = temp/6560 + (short)input;
X
X    return (temp > 17) ? 17 : temp;
X}
X
X#define MAXPOINTS 5
X#define FIX(x) (((long)(x)) << 7)
X
X/*
X *   Draws a spline!  Expects all arguments in registers.
X */
X#asm
X    public    _Draw
X    cseg
Xrspline
X    move.l    a0,d0
X    sub.l    d6,d0
X    move.l    d0,d3
X    bpl    save1
X    neg.l    d0
Xsave1
X    move.l    a1,d1
X    sub.l    d7,d1
X    move.l    d1,d4
X    bpl    save2
X    neg.l    d1
Xsave2
X    move.l    d0,d2
X    cmp.l    d0,d1
X    bmi    save3
X    lsr.l    #3,d2
X    bra    save9
Xsave3
X    lsr.l    #3,d1
Xsave9
X    add.l    d1,d2
X    asr.l    #3,d2
X    asr.l    #5,d3
X    asr.l    #5,d4
X    move.l    a2,d0
X    sub.l    a0,d0
X    move.l    a3,d1
X    sub.l    a1,d1
X    asr.l    #5,d0
X    asr.l    #5,d1
X    muls.w    d4,d0
X    muls.w    d3,d1
X    sub.l    d1,d0
X    bpl    save4
X    neg.l    d0
Xsave4
X    cmp.l    d0,d2
X    bmi    pushem
X    move.l    a5,d0
X    sub.l    a0,d0
X    move.l    a6,d1
X    sub.l    a1,d1
X    asr.l    #5,d0
X    asr.l    #5,d1
X    muls.w    d4,d0
X    muls.w    d3,d1
X    sub.l    d1,d0
X    bpl    save5
X    neg.l    d0
Xsave5
X    cmp.l    d0,d2
X    bmi    pushem
Xmakeline
X    lsr.l    #7,d7
X    move.l    d7,-(sp)
X    lsr.l    #7,d6
X    move.l    d6,-(sp)
X    move.l    _rp,-(sp)
X    jsr    _Draw
X    add.w    #12,a7
X    rts
Xpushem
X    movem.l d6/d7,-(sp)
X    move.l    a5,d0
X    add.l    d6,d0
X    asr.l    #1,d0
X    move.l    a6,d1
X    add.l    d7,d1
X    asr.l    #1,d1
X    movem.l d0/d1,-(sp)
X    move.l    a2,d2
X    add.l    a5,d2
X    asr.l    #1,d2
X    move.l    a3,d3
X    add.l    a6,d3
X    asr.l    #1,d3
X    move.l    d0,d4
X    add.l    d2,d4
X    asr.l    #1,d4
X    move.l    d1,d5
X    add.l    d3,d5
X    asr.l    #1,d5
X    movem.l d4/d5,-(sp)
X    move.l    a0,d6
X    add.l    a2,d6
X    asr.l    #1,d6
X    move.l    a1,d7
X    add.l    a3,d7
X    asr.l    #1,d7
X    move.l    d2,d0
X    add.l    d6,d0
X    asr.l    #1,d0
X    move.l    d3,d1
X    add.l    d7,d1
X    asr.l    #1,d1
X    move.l    d6,a2
X    move.l    d7,a3
X    move.l    d0,d6
X    add.l    d4,d6
X    asr.l    #1,d6
X    move.l    d1,d7
X    add.l    d5,d7
X    asr.l    #1,d7
X    movem.l d6/d7,-(sp)
X    move.l    d0,a5
X    move.l    d1,a6
X    jsr    rspline
X    movem.l (sp)+,a0/a1
X    movem.l (sp)+,a2/a3/a5/a6
X    movem.l (sp)+,d6/d7
X    bra    rspline
X#endasm
X/*
X *   Now our linkage to the spline routine.  Parameters are in 8(a5)...
X */
Xint drawspline(x1, y1, x2, y2, x3, y3, x4, y4)
Xlong x1, y1, x2, y2, x3, y3, x4, y4 ;
X{
X#asm
X    movem.l saver,-(sp)
X    move.l    8(a5),a0
X    move.l    12(a5),a1
X    move.l    16(a5),a2
X    move.l    20(a5),a3
X    move.l    28(a5),a6
X    move.l    32(a5),d6
X    move.l    36(a5),d7
X    move.l    24(a5),a5
X    jsr    rspline
X    movem.l (sp)+,saver
Xsaver    reg    d0-d7/a0-a6
X#endasm
X}
X
X/*
X *   Here we draw splines!  Magic, you know.
X */
Xdospline(index)
Xregister int index;
X{
X    int index1;
X
X    if (index == 0)
X    index1 = maxlines;
X    else
X    index1 = index - 1;
X
X    Move(rp, (long)(point1[index][0]), (long)(point1[index][1])) ;
X    drawspline(FIX(point1[index][0]), FIX(point1[index][1]),
X          FIX(point2[index][1]), FIX(point2[index][1]),
X          FIX(point1[index1][0]), FIX(point1[index1][1]),
X          FIX(point2[index1][0]), FIX(point2[index1][1])) ;
X}
X
X
SHAR_EOF
echo "extracting dlineart.doc"
sed 's/^X//' << \SHAR_EOF > dlineart.doc
X
X    Is your computer BORED? If so, then you need...
X
X        DLineArt, by Steve -Raz- Berry with help
X        from Matt Dillon.
X
X    IF YOU ARE IMPATIENT WITH LONG WINDED README'S... skip to the section
Xlabeled Examples and try them out...
X
X This program must be used in conjunction with Dmouse 1.13, and is
X intended to be a screen blanker replacement program. IT IS NOT
X STAND ALONE. An earlier release of LineArt works without Dmouse.
X
X0) SHORT HISTORY
X----------------
X
X    This display hack does nothing usefull, but draw pretty lines on a
Xcustom screen. I have seen this program running on everything from Suns
Xto Mac's, and I decided that it was time that one was done for the Amiga.
XAlthough similar to the lines demo distributed on Workbench 1.1 & 1.2,
XIt does things on it's own screen in full 4096 color interlaced
Xsplendor :*).
X
X    Matt Dillon liked it so much that he stitched in a way to
Xadd your own customized screen blanker via an IPC port. As soon as
XI found Dmouse 1.13, I took his example "blanker.c", and hacked it
Xup to support LineArt graphics. I also fixed a few bugs and added a few
Xmore things along the way.
X
X    When I first wrote this program, I was unaware of MACKIE written by
XTom Rokicki, which draws the same kind of lines boxes and splines
Xas part of a hot-key/screen-blanker type program. Undaunted (although
Xsomewhat embarassed) I proceeded to allow infinite customization
Xto those who are bored enough to want to play with LineArt. Besides, I prefer
XDMOUSE (Thanks Matt!) for my hot-key handler. Don't get me wrong, I really
Xlike the way Tom does splines... In fact I stole his spline code and put
Xit in (D)LineArt.
X
X1) TO GET DMOUSE TO RECOGNIZE DLineArt -
X--------------------------------------
X
X    To make dmouse (v1.20+) use the DLineArt screen blanker instead of its
X    default blanker (a boring blank screen) simply run DLineArt after you
X    initialize dmouse.
X
X------------------------------------------------------
Xstack 4000
Xdmouse -a4 -m3 -s90 -l0003 -w1 -t7 -C NewWSH
Xrunback -1 DLineArt -a -n 3 -c2500 -l30
X
X------------------------------------------------------
X
X    To terminate DLineArt do this:
X
Xraz's prompt> status
XProcess  1: Loaded as command: dlineart
XProcess  3: Loaded as command: status
Xraz's prompt> break 1
X
X The break command will terminate DLineArt.
X
X Terminating DMouse (1> dmouse quit) will also terminate DLineArt.
X
X2) INVOCATION:
X-------------
X
XThere are a LOT of comand line options (for a program like this anyway)!
X
X You need to run DLineArt in the background for it to function properly.
X You can enter the options in ANY order on the command line, and only the
X last occurance of a particular switch will be used. The options are:
X
X    run >nil: <nil: DLineArt -[b|t|n|e|c{0-4096}|l{2-1000}] [i]
X
X or use the PD 'runback' program to start DLineArt.
X
X The '-l' and '-c' options require an integer immediately following the
X switch in the range indicated in the {}'s, without a space. Descriptions
X and examples follow.
X
X   Dlineart -t        - This leaves a trail (one out of every 'l' lines)
X              remains on the screen.
X
X        -s        - Draw splines. Code blatently ripped off from Tomas
X              Rokicki's Mackie.
X
X        "-Tstring"
X            - This option allows you to "bounce" words around the
X              screen. You MUST enclose quotes around the entire
X              string. This example will use "string". The default
X              is the string "BOING!"
X
X        -n        - This is the 'nice' option, this makes LineArt much
X              more friendly in a multitasking environment
X              (It takes less CPU time.) It also slows things down.
X
X        -cXXXX  - This switch allows you to specify the initial color
X              that the program will cycle from. Suggested color
X              values start from 1900 (decimal) and up.
X
X        -lXXXX  - This switch allows you to specify the number of
X              lines to be drawn before the last one is erased.
X
X        -b        - draw boxes (4 connected lines) instead of lines.
X
X        i        - This is an integer between 1 and 9 that will change
X              the minimum distance between sucessive endpoints for
X              each line drawn. A high number will give the illusion
X              of unbelievable speed! (Woah... hold me down Toto!)
X
X        -e        - Draw ellipses instead of anything else.
X              (I would be interested to see this run with an '020)
X
X        -a        - Cycle through all of the available line (and circle)
X              types. This is a good loop mode.
X
XThe defaults (if you just type 'run lineart') are as if you entered:
X
X run <nil: >nil: DLineArt 3 -a -c1280 -l10 -TBOING!
X
X3) EXAMPLES:
X-----------
X
X Some of my favorites:
X
X    runback DLineArt 4 -l100 -c2500 -n
X    runback DLineArt 1 -l10 -c2500
X    runback DLineArt 9 -l30 -c2500 -n
X    runback DLineArt 9 -l30 -c2500 -t
X    runback DLineArt 4 -l3 -c1500 -n
X    runback DLineArt -b -c2500 1 -l20
X    runback DLineArt -s -c2500 4 -l35
X    runback DLineArt "-TI love Teresa!" -c2500 9 -n -l20
X    runback DLineArt -e 7 -c1999 -l30
X
X For speed freaks -
X    run <nil: >nil: DLineArt 9 -c4000 -l7
X
X4) Miscelaneous:
X---------------
X
X    If you want to time the drawing speed (roughly) turn on the trailing option
X    and wait for the screen to clear. 60,000 lines would have been drawn in
X    this amount of time.
X
X    I timed it at 2'7" (127 seconds) or 944 lines per second in line draw
X    mode. Using boxes it climbs to 2400 vectors per second. Not too shabby for
X    a game machine eh?
X
X5) Future improvements:
X
X    It could be faster, if I use the screen's rastport instead of the
X    windows'. Unfortuneately, CED (which is an excellent editor) does not
X    co-exist with DLineart when doing this. I have no clue why this is so.
X    The only symptoms are that retrieving CED via hot-key produces an instant
X    GURU. And no, I am NOT drawing out of bounds of the rastport, you
X    should have seen the debugging code I put in to make sure of that!
X
X------------------------------------------------------------------------
X
X   This program is PD. Use it or abuse it, only you will know.
X
X    Steve -Raz- Berry        (Note the new address)
X    1260 Ayala Dr. #214
X    Sunnyvale, Ca. 94086
X
X    UUCP: ...sun!kilowatt!raz    ARPA: [e-mail]
X
X    If you are on USENET, please feel free to use the archive server
X    on kilowatt. Just send a message of "send help" to the
X
X        [e-mail]
X    or    {well bonded site}!sun!kilowatt!archive-server
X
X    The archive has *all* of the binaries and sources that Bob Page
X    has posted and some from the days of Pat White. Currently this
X    totals to over 40 meg of stuff (zoo'ed and uuencoded).
X
X   This program is a Public Domain product of The Checkered Ball 1989.
X
X    8/07/89
SHAR_EOF
echo "extracting dmouse-handler.c"
sed 's/^X//' << \SHAR_EOF > dmouse-handler.c
X
X/*
X *  DMOUSE-HANDLER.C
X *
X *  (c)Copyright 1989 by Matthew Dillon, All Rights Reserved
X *
X *  V1.20, last revision 3 August 1989
X *
X *  Note on upping the handler process priority.  This is done to cause the
X *  handler task to get CPU before the current input event completes its
X *  processing so intuition calls made by the process are executed before
X *  the event is propogated.  If said intuition calls block, it's ok
X *  because they are not blocking the input handler process.
X */
X
X#include "dmouse.h"
X
X#ifdef LATTICE
X#include <stdio.h>
X#include <stdlib.h>
X#include <string.h>
X#endif
X
X/*typedef struct Layer          LAYER;*/
Xtypedef struct IE        *IEP;
Xtypedef struct IORequest    IORequest;
X
XDMS    *Dms               = NULL;
XIBASE    *IntuitionBase           = NULL;
XGFXBASE *GfxBase           = NULL;
Xstruct LayersBase  *LayersBase = NULL;
Xstruct ExecBase    *SysBase    = NULL;
X
Xstatic PORT    *IOPort = NULL;     /*    For IPC messages          */
Xstatic LIST    BlankList;        /*    list of external blanker programs */
X
Xstatic char    STimedout = 0;
Xstatic char    MTimedout = 0;
Xstatic long    STime = 0, MTime = 0;
X#ifdef DEBUG
Xstatic long    DBFh = NULL;
X#endif
X
X
X#define IBASE IntuitionBase
X
XNS    Ns = {    0, 0, 64, -1, 1, -1, -1, 0, CUSTOMSCREEN|SCREENQUIET };
XIE DummyIE = { 0 };
X
Xshort    NRMe;    /*  Don't Repeat Mouse Events   */
X
X#ifdef LATTICE
X__asm __saveds IEP handler(register __a0 IE *event);
X#else
XIE *handler();
X#endif
X
XLAYER *WhichMouseLayer ARGS((void));
Xvoid sendrequest ARGS((long, IE *));
XLAYER *WhichMouseLayer ARGS((void));
Xint doipcmsg ARGS((short));
Xvoid DeleteBlanker ARGS((IORequest *));
X__saveds void noname ARGS((void));
X
X#ifdef LATTICE
X__saveds void
Xnoname()
X#else
X_main()
X#endif
X{
X
X    reg DMS *dms;
X    IOR  *ior;
X    INT addhand;
X
X#ifndef LATTICE
X    geta4();
X#endif
X    SysBase = *(struct ExecBase **)4;
X#ifdef LATTICE
X    {
X    DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 0);
X    }
X#endif
X    {
X    reg PROC *proc = (PROC *)FindTask(NULL);
X    proc->pr_ConsoleTask = NULL;
X    }
X    NRMe = 0;
X    dms = Dms = (DMS *)FindPort(PORTNAME);
X    if (!dms)
X    return;
X    dms->Port.mp_Flags = PA_SIGNAL;
X    dms->Port.mp_SigBit = AllocSignal(-1);
X    dms->Port.mp_SigTask = FindTask(NULL);
X    dms->HandTask = dms->Port.mp_SigTask;
X    ior = CreateStdIO(&dms->Port);
X    IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 0);
X    GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 0);
X    LayersBase = (struct LayersBase *)OpenLibrary("layers.library", 0);
X    IOPort = CreatePort("DMouse.ipc", 0);
X    NewList(&BlankList);
X
X    if (!IntuitionBase || !GfxBase || !LayersBase)
X    goto startupfail;
X    addhand.is_Node.ln_Pri = dms->IPri;
X    addhand.is_Code = (FPTR)handler;
X    addhand.is_Data = NULL;
X
X    if (OpenDevice("input.device", 0, ior, 0)) {
X    goto startupfail;
X    } else {
X    SCR *scr = NULL;
X    uword *SprSavePtr = NULL;
X    long ipc_mask;
X
X    Signal(dms->ShakeTask, 1 << dms->ShakeSig);
X    ior->io_Command = IND_ADDHANDLER;
X    ior->io_Data = (APTR)&addhand;
X    ior->io_Message.mn_Node.ln_Type = NT_MESSAGE;
X    DoIO(ior);
X
X    ipc_mask = 1 << IOPort->mp_SigBit;
X
X    for (;;) {
X        reg long sigs = Wait(SBF_C|(1<<dms->Port.mp_SigBit)|ipc_mask);
X        if (sigs & (1 << dms->Port.mp_SigBit)) {
X        reg REQ *msg;
X        while (msg = (REQ *)GetMsg(&dms->Port)) {
X            switch((long)msg->Msg.mn_Node.ln_Name) {
X            case REQ_SCREENON:
X            if (scr)
X                CloseScreen(scr);
X            scr = NULL;
X            doipcmsg(0x82);
X            break;
X            case REQ_SCREENOFF:
X            if (scr)
X                ScreenToFront(scr);
X            if (doipcmsg(0x83) == 0 && scr == NULL) {
X                if (scr = OpenScreen(&Ns))
X                SetRGB4(&scr->ViewPort, 0, 0, 0, 0);
X            }
X            break;
X            case REQ_MOUSEON:
X            if (SprSavePtr) {
X                register COPINIT *ci = GfxBase->copinit;
X                ci->sprstrtup[1] = (ulong)SprSavePtr >> 16;
X                ci->sprstrtup[3] = (uword)(long)SprSavePtr;
X                SprSavePtr = NULL;
X            }
X            doipcmsg(0x80);
X            break;
X            case REQ_MOUSEOFF:
X            if (doipcmsg(0x81) == 0) {
X                reg COPINIT *ci = GfxBase->copinit;
X                if (ci->sprstrtup[0] != 0x120 || ci->sprstrtup[2] != 0x122)
X                break;
X
X                if (!SprSavePtr)
X                SprSavePtr = (uword *)((ci->sprstrtup[1] << 16) | ci->sprstrtup[3]);
X                ci->sprstrtup[1] = (ulong)dms->NoSprData >> 16;
X                ci->sprstrtup[3] = (uword)(long)dms->NoSprData;
X            }
X            break;
X            case REQ_DOCMD:
X            {
X                long fh = (long)Open("nil:", 1006);
X                Execute(dms->Cmd, NULL, fh);
X                if (fh)
X                Close(fh);
X            }
X            break;
X            case REQ_RAWMOUSE:
X            {
X                register LAYER *layer;
X
X                NRMe = 0;
X                Forbid();
X                layer = WhichMouseLayer();
X                if (msg->ie_Code == IECODE_RBUTTON && dms->LMBEnable && (msg->ie_Qualifier & dms->RQual)) {
X                register WIN *win;
X                if (layer && (win = (WIN *)layer->Window) && !(win->Flags & BACKDROP) && (win->NextWindow || win->WScreen->FirstWindow != win)) {
X                    if (dms->Workbench)
X                    WindowToBack(win);
X                    else
X                    BehindLayer(0, layer);
X                } else if (IBASE->FirstScreen)
X                    ScreenToBack(IBASE->FirstScreen);
X                }
X                if (layer && layer->Window) {
X                if (msg->ie_Code == IECODE_LBUTTON && !(((WIN *)layer->Window)->Flags & BACKDROP) && dms->LMBEnable && layer->ClipRect && layer->ClipRect->Next) {
X                    /*
X                     *    Note: Case where it is the 'first' click in a series, where dms->CTime is
X                     *          garbage, works properly no matter what DoubleClick returns.
X                     */
X                    if (dms->LQual == 0 || (msg->ie_Qualifier & dms->LQual)) {
X                    if ((APTR)dms->CWin == layer->Window && DoubleClick(dms->CTime.tv_secs, dms->CTime.tv_micro, msg->ie_TimeStamp.tv_secs, msg->ie_TimeStamp.tv_micro))
X                        --dms->CLeft;
X                    else
X                        dms->CLeft = dms->Clicks - 1;
X                    dms->CTime = msg->ie_TimeStamp;
X                    dms->CWin = (WIN *)layer->Window;
X                    if (dms->CLeft == 0) {
X                        dms->CLeft = dms->Clicks;
X                        if (dms->Workbench)
X                        WindowToFront((WIN *)layer->Window);
X                        else
X                        UpfrontLayer(0, layer);
X                    }
X                    }
X                }
X                if ((dms->AAEnable & 1) && (void *)layer->Window != (void *)IBASE->ActiveWindow && msg->ie_Code == IECODE_NOBUTTON && !(msg->ie_Qualifier & 0x7000)) {
X                    if (!IBASE->ActiveWindow || !IBASE->ActiveWindow->FirstRequest)
X                    ActivateWindow((WIN *)layer->Window);
X                }
X                }
X                Permit();
X            }
X            break;
X            case REQ_RAWKEY:
X            {
X                register LAYER *layer;
X
X                Forbid();
X                layer = WhichMouseLayer();
X                if (layer && layer->Window && (void *)layer->Window != (void *)IBASE->ActiveWindow) {
X                if (!IBASE->ActiveWindow || !IBASE->ActiveWindow->FirstRequest)
X                    ActivateWindow((WIN *)layer->Window);
X                }
X                Permit();
X            }
X            break;
X#ifdef DEBUG
X            case REQ_DEBUG:
X            {
X                char buf[128];
X                if (!DBFh) {
X                DBFh = Open("con:0/0/400/100/dmouse-debug", 1006);
X                if (!DBFh)
X                    break;
X                }
X                sprintf(buf, "%02lx %04lx %04lx\n",
X                msg->ie_Class,
X                msg->ie_Code,
X                msg->ie_Qualifier
X                );
X                Write(DBFh, buf, strlen(buf));
X            }
X            break;
X            case REQ_DEBUGOFF:
X            if (DBFh) {
X                Close(DBFh);
X                DBFh = NULL;
X            }
X            break;
X#endif
X            }
X            FreeMem(msg, msg->Msg.mn_Length);
X        }
X        }
X        if (sigs & SBF_C)
X        break;
X
X        /*
X         *    IPC request.
X         */
X
X        if (sigs & ipc_mask) {
X        reg IORequest *ior;
X        while (ior = (IORequest *)GetMsg(IOPort)) {
X            long req = 0;
X
X            if (ior->io_Message.mn_Node.ln_Type == NT_REPLYMSG) {
X            FreeMem(ior, ior->io_Message.mn_Length);
X            continue;
X            }
X
X            ior->io_Error = 0;
X            switch(ior->io_Command) {
X            case 0x80:    /* mouse on  */
X            req = REQ_MOUSEON;
X            break;
X            case 0x81:    /* mouse off */
X            req = REQ_MOUSEOFF;
X            MTimedout = 1;
X            break;
X            case 0x82:    /* screen on */
X            req = REQ_SCREENON;
X            break;
X            case 0x83:    /* screen off*/
X            req = REQ_SCREENOFF;
X            STimedout = 1;
X            break;
X            case 0x84:    /* add hand  */
X            AddHead(&BlankList, ior);
X            ior = NULL;
X            break;
X            case 0x85:    /* rem hand  */
X            DeleteBlanker(ior);
X            ior = NULL;
X            break;
X            }
X            if (req)
X            sendrequest(req, NULL);
X            if (ior)
X            ReplyMsg(&ior->io_Message);
X        }
X        }
X    }
X#ifdef DEBUG
X    if (DBFh) {
X        Close(DBFh);
X        DBFh = NULL;
X    }
X#endif
X    ior->io_Command = IND_REMHANDLER;
X    ior->io_Data = (APTR)&addhand;
X    ior->io_Message.mn_Node.ln_Type = NT_MESSAGE;
X    DoIO(ior);
X    ior->io_Command = IND_WRITEEVENT;    /*  NULL EVENT    */
X    ior->io_Length = sizeof(IE);
X    ior->io_Data = (APTR)&DummyIE;
X    ior->io_Message.mn_Node.ln_Type = NT_MESSAGE;
X    DoIO(ior);
X    CloseDevice(ior);
X    {
X        reg MSG *msg;
X        while (msg = GetMsg(&dms->Port))
X        FreeMem(msg, msg->mn_Length);
X    }
X    if (scr)
X        CloseScreen(scr);
X    if (SprSavePtr) {
X        reg COPINIT *ci = GfxBase->copinit;
X        ci->sprstrtup[1] = (ulong)SprSavePtr >> 16;
X        ci->sprstrtup[3] = (uword)(long)SprSavePtr;
X        SprSavePtr = NULL;
X    }
X    }
X    goto closedown;
Xstartupfail:
X    dms->StartupError = 1;
X    Signal(dms->ShakeTask, 1 << dms->ShakeSig);
X    Wait(SBF_C);
Xclosedown:
X    DeleteStdIO(ior);
Xfail:
X    if (IOPort) {
X    IORequest *ior;     /*    wait for RemReq messages */
X
X    doipcmsg(0x86);     /*  send closedown requests  */
X    Forbid();
X    while (GetHead(&BlankList)) {
X        WaitPort(IOPort);
X        while (ior = (IORequest *)GetMsg(IOPort)) {
X        if (ior->io_Message.mn_Node.ln_Type == NT_REPLYMSG) {
X            FreeMem(ior, ior->io_Message.mn_Length);
X            continue;
X        }
X        if (ior->io_Command == 0x85)    /*  receive remove req  */
X            DeleteBlanker(ior);
X        else
X            ReplyMsg(&ior->io_Message);              /*  ignore other reqs   */
X        }
X    }
X    DeletePort(IOPort);
X    Permit();
X    }
X    if (IntuitionBase)
X    CloseLibrary((LIB *)IntuitionBase);
X    if (GfxBase)
X    CloseLibrary((LIB *)GfxBase);
X    if (LayersBase)
X    CloseLibrary((LIB *)LayersBase);
X#ifdef LATTICE
X    {
X    CloseLibrary((LIB *)DOSBase);
X    }
X#endif
X    Forbid();
X    Signal(dms->ShakeTask, 1 << dms->ShakeSig);
X}
X
Xvoid
XDeleteBlanker(ior)
XIORequest *ior;
X{
X    IORequest *io2;
X
X    ior->io_Error = 0;
X    for (io2 = GetHead(&BlankList); io2; io2 = GetSucc(io2)) {
X    if (io2->io_Unit == ior->io_Unit) {
X        Remove(io2);
X        if (ior)
X        ReplyMsg(&ior->io_Message);
X        ReplyMsg(&io2->io_Message);
X        ior = NULL;
X    }
X    }
X    if (ior) {
X    ior->io_Error = -1;
X    ReplyMsg(&ior->io_Message);
X    }
X}
X
Xdoipcmsg(cmd)
Xshort cmd;
X{
X    short count = 0;
X    short flags = 1 << (cmd & 0x7F);    /*  enable flags */
X    IORequest *iob, *io;
X
X    for (iob = GetHead(&BlankList); iob; iob = GetSucc(iob)) {
X    if (cmd == 0x86 || (iob->io_Flags & flags)) {
X        io = AllocMem(sizeof(IORequest), MEMF_PUBLIC|MEMF_CLEAR);
X        if (io) {
X        io->io_Command = cmd;
X        io->io_Unit = iob->io_Unit;
X        io->io_Message.mn_ReplyPort = IOPort;
X        io->io_Message.mn_Length = sizeof(IORequest);
X        PutMsg(iob->io_Message.mn_ReplyPort, &io->io_Message);
X        ++count;
X        }
X    }
X    }
X    return((int)count);
X}
X
X/*
X *  The INPUT.DEVICE HANDLER
X *
X *  Note that for Lattice V5.02 and beyond we need no
X *  assembly tags because we can specify that the arguments
X *  are passed in registers.
X */
X
X#ifndef LATTICE
X
X#asm
X        ;    A0 = pointer to event linked list
X        ;    A1 = pointer to my data segment
X        ;    return new event linked list in D0
X
X        public  _CHandler
X
X_handler:
X        movem.l D2/D3/A0/A1/A4/A6,-(sp)
X        jsr     _CHandler
X        movem.l (sp)+,D2/D3/A0/A1/A4/A6
X        rts
X
X#endasm
X
X#endif
X
X/*
X *  (1) Accellerate mouse movements.
X *  (2) Auto-Select window
X */
X
X#ifdef LATTICE
X
X__asm __saveds IEP
Xhandler(register __a0 IE *Ev)
X{
X
X#else
X
XIE *
XCHandler(scr0, scr1, Ev)
Xlong scr0;
Xlong scr1;
XIE *Ev;
X{
X#endif
X    reg IE *ev;
X    reg DMS *dms;
X
X#ifndef LATTICE
X    geta4();
X#endif
X    dms = Dms;
X    for (ev = Ev; ev; ev = Ev->ie_NextEvent) {
X#ifdef DEBUG
X    if (dms->Debug) {
X        if (ev->ie_Class != IECLASS_TIMER)
X        sendrequest(REQ_DEBUG, ev);
X    } else if (DBFh) {
X        sendrequest(REQ_DEBUGOFF, ev);
X    }
X#endif
X    switch(ev->ie_Class) {
X    case IECLASS_RAWMOUSE:
X        /*
X         *    Mouse events restore both the screen and mouse pointer.
X         */
X
X        STime = ev->ie_TimeStamp.tv_secs + dms->STo;
X        MTime = ev->ie_TimeStamp.tv_secs + dms->MTo;
X        if (STimedout)
X        sendrequest(REQ_SCREENON, ev);
X        if (MTimedout)
X        sendrequest(REQ_MOUSEON, ev);
X        STimedout = MTimedout = 0;
X
X        /*
X         *    Mouse Acceleration
X         */
X        {
X        register short n;
X        register short s;
X
X        if (dms->Acc != 1) {
X            n = ev->ie_X;
X            s = 1;
X            if (n < 0) {
X            n = -n;
X            s = -1;
X            }
X            if (n > dms->AThresh)
X            ev->ie_X = s * (short)((n - dms->AThresh - 1) * dms->Acc + dms->AThresh + 1);
X            n = ev->ie_Y;
X            s = 1;
X            if (n < 0) {
X            n = -n;
X            s = -1;
X            }
X            if (n > dms->AThresh)
X            ev->ie_Y = s * (short)((n - dms->AThresh - 1) * dms->Acc + dms->AThresh + 1);
X        }
X        }
X
X        /*
X         *    Auto Activate and LMB (win/scrn front/bak)
X         */
X
X        if (dms->LMBEnable && ev->ie_Code == IECODE_RBUTTON && (ev->ie_Qualifier & dms->RQual))
X        ev->ie_Class = IECLASS_NULL;    /*  remove event    */
X        if (NRMe == 0 && ((dms->AAEnable & 1) || dms->LMBEnable)) {
X        register short old;
X        NRMe = 1;
X        if (ev->ie_Code != IECODE_NOBUTTON)
X            old = SetTaskPri(dms->Port.mp_SigTask, 21);
X        sendrequest(REQ_RAWMOUSE, ev);
X        if (ev->ie_Code != IECODE_NOBUTTON)
X            SetTaskPri(dms->Port.mp_SigTask, old);
X        }
X        break;
X    case IECLASS_RAWKEY:
X        /*
X         *    Keyboard events will kill the screen timeout but not
X         *    the mouse timeout.  Note that the priority of the
X         *    co-process must be upped to ensure it is able to make the
X         *    window active before the keystroke is passed further.
X         *
X         *    key releases are ignored
X         *
X         *    note: ie_Qualifier may or may not have bit 15 set
X         */
X        if (ev->ie_Code & 0x80)
X        break;
X        if (dms->AAEnable & 2) {
X        register short old = SetTaskPri(dms->Port.mp_SigTask, 21);
X        sendrequest(REQ_RAWKEY, ev);
X        SetTaskPri(dms->Port.mp_SigTask, old);
X        }
X        STime = ev->ie_TimeStamp.tv_secs + dms->STo;
X        if (STimedout) {
X        sendrequest(REQ_SCREENON, ev);
X        if (dms->MTo == 0)
X            sendrequest(REQ_MOUSEON, ev);
X        }
X        STimedout = 0;
X
X        if (ev->ie_Code == dms->Code && (ev->ie_Qualifier | 0x8000) == dms->Qual) {
X        sendrequest(REQ_DOCMD, ev);
X        ev->ie_Class = IECLASS_NULL;    /*  remove event    */
X        }
X        break;
X    case IECLASS_TIMER:
X        /*
X         *    On a timer event, if timeout has occured execute the operation
X         *    and reset the timeout.    Note that this will cause continuous
X         *    timeouts every STo and MTo seconds... required because at any
X         *    time Intuition might turn the mouse back on or open a screen or
X         *    something and I want the blanker's to work in the long run.
X         */
X        {
X        register long old;
X        if (dms->Reset) {
X            dms->Reset = 0;
X            STime = ev->ie_TimeStamp.tv_secs + dms->STo;
X            MTime = ev->ie_TimeStamp.tv_secs + dms->MTo;
X        }
X        if (dms->STo && (old = STime - ev->ie_TimeStamp.tv_secs) < 0) {
X            STime = ev->ie_TimeStamp.tv_secs + dms->STo + 10;
X            STimedout = 1;
X            MTimedout = 1;
X            if (old > -10) {
X            sendrequest(REQ_SCREENOFF, ev);
X            sendrequest(REQ_MOUSEOFF, ev);
X            }
X        }
X        if (dms->MTo && (old = MTime - ev->ie_TimeStamp.tv_secs) < 0) {
X            MTime = ev->ie_TimeStamp.tv_secs + dms->MTo + 1;
X            MTimedout = 1;
X            if (old > -10)
X            sendrequest(REQ_MOUSEOFF, ev);
X        }
X        }
X        break;
X    }
X    }
X    return(Ev);
X}
X
Xvoid
Xsendrequest(creq, ev)
Xlong creq;
Xreg IE *ev;
X{
X    reg REQ *req = AllocMem(sizeof(REQ), MEMF_PUBLIC);
X
X    if (req) {
X    req->Msg.mn_Node.ln_Name = (char *)creq;
X    req->Msg.mn_ReplyPort = NULL;
X    req->Msg.mn_Length = sizeof(REQ);
X    if (ev) {
X        req->ie_Class= ev->ie_Class;
X        req->ie_Code = ev->ie_Code;
X        req->ie_Qualifier = ev->ie_Qualifier;
X        req->ie_TimeStamp = ev->ie_TimeStamp;
X    }
X    PutMsg(&Dms->Port, (MSG *)req);
X    }
X}
X
XLAYER *
XWhichMouseLayer()
X{
X    register struct IntuitionBase *ib = IBASE;
X    register LAYER *layer = NULL;
X    register SCR *scr = ib->FirstScreen;
X
X    for (scr = ib->FirstScreen; scr; scr = scr->NextScreen) {
X    register short mousey = ib->MouseY;
X    register short mousex = ib->MouseX;
X    if (!(scr->ViewPort.Modes & LACE))
X        mousey >>= 1;
X    if (!(scr->ViewPort.Modes & HIRES))
X        mousex >>= 1;
X    if (layer = WhichLayer(&scr->LayerInfo, mousex, mousey - scr->ViewPort.DyOffset))
X        break;
X    if (mousey >= scr->ViewPort.DyOffset)
X        break;
X    }
X    return(layer);
X}
X
X
SHAR_EOF
echo "extracting dmouse-ipc.doc"
sed 's/^X//' << \SHAR_EOF > dmouse-ipc.doc
X
X    Talking to DMouse.
X
X    DMouse listens on the "DMouse.ipc" port.  To send a message, setup an
X    IORequest structure with the appropriate command and then
X    FindPort()/PutMsg() atomically, then wait for the request to be returned
X    to the reply port specified in the request.
X
X    *** REFER TO THE EXAMPLE BLANKER.C FOR USAGE
X
X    DMCMD_MOUSEON    turn on mouse        (io_Command 0x80)
X    DMCMD_MOUSEOFF    turn off mouse            0x81
X    DMCMD_SCREENON    turn on screen            0x82
X    DMCMD_SCREENOFF    turn off screen         0x83
X
X    DMCMD_ADDHANDLER    io_Message.mn_ReplyPort     0x84
X            contains port to send
X            msgs to.
X
X    DNCMD_REMHANDLER    io_Message.mn_ReplyPort     0x85
X            contains port to stop
X            sending msgs to.
X
X    DNCMD_PLEASEREMOVE    (DMouse->blanker)               0x86
X
X
X    DNCMD_ADDHANDLER:
X    io_Unit contains a magic cookie used to identify the handler and should
X    be set to some unique memory address (no accesses are actually made,
X    its just an identifier.
X
X    io_Flags contains a bitmap of things our blanker can handle:
X    0x03    we can handle mouse blanking
X    0x0C    we can handle screen blanking
X    0x0F    we can handle both
X
X    The request is NOT returned until you send a DNCMD_REMHANDLER request.
X    If DMouse is killed it will sent a DNCMD_PLEASEREMOVE (0x86) packet to
X    all active handlers and expect them to remove their handlers with a
X    DNCMD_REMHANDLER request.
X
X    NOTE:    You may run multiple blankers.    DMouse will send requests to
X    ALL active handlers.
X
X    DNCMD_REMHANDLER:
X    io_Unit contains a magic cookie that identifies which handler to remove.
X    The request is returned and then the original DNCMD_ADDHANDLER request
X    will be returned to you.  You can still receive DMouse commands up until
X    you finally get the original DNCMD_ADDHANDLER request back.
X
X    on return, io_Error is 0 on success, -1 on failure.
X
X    DNCMD_PLEASEREMOVE:
X    DMouse sends this to you asking you to remove your handler.  If you
X    receive this packet you must remove your handler with DNCMD_REMHANDLER.
X
X
X    DNCMD_MOUSEON,MOUSEOFF,SCREENON, SCREENOFF and PLEASEREMOVE commands
X    will be sent to the port specified in DNCMD_ADDHANDLER while it is
X    active and are expected to be returned to the DMouse handler.  You can
X    differentiate packets sourced by DMouse and packets sourced by you by
X    looking at the mn_Node.ln_Type field.  If it is NT_MESSAGE it was
X    sourced by DMouse, else it was sourced by you and replied by DMouse.
X
X
SHAR_EOF
echo "extracting dmouse.c"
sed 's/^X//' << \SHAR_EOF > dmouse.c
X
X/*
X *  DMOUSE.C    V1.20  3 August 1989
X *
X *  (c)Copyright 1989 by Matthew Dillon, All Rights Reserved
X *
X *  DMOUSE QUIT
X *  DMOUSE -a# -t# -s# -m# -c# -p# -w# -Ln -lqqqq -Rqqqq -An -Kcccc -Qqqqq -C cmd
X *       -d#
X *
X *  -a#     # = acceleration, default 3.    1 to disable
X *  -t#     # = mouse threshold before acceleration takes effect, def. 0
X *        (in pixels/event)
X *  -s#     # = screen timeout, default 5min,    0 to disable
X *  -m#     # = pointer timeout, default 5 secs,0 to disable
X *  -c#     # = # of clicks to bring window to front
X *  -p#     # = input device priority
X *  -w#     1 = Use WindowToFront()/WindowToBack()  else    (workbench users)
X *        0 = Use UpFrontLayer(), etc...                  (cli users)
X *  -L0     Disable LeftMouseButton->WindowToFront (LMB+RMB->ToBack)
X *  -L1     Enable it
X *  -lqqqq  Set qualifier + LMB for Window to front (default none)
X *  -Rqqqq  Set qualifier + RMB for Window/ScreenToBack (default LMB)
X *  -A0     Disable Auto-Activate window on mouse move
X *  -A1     Enable it, keyhit-auto-activate disabled    (bit 0 = mouse aa)
X *  -A3     Enable it, keyhit-auto-activate enabled    (bit 1 = key aa)
X *  -Kcccc  Set key code in hex that activates cmd, def is escape
X *  -Qqqqq  Set key qualifier in hex for keycode, def is left-amiga
X *  -C cmd  Set command (must be last option on command line), def NewCli
X *
X *  -d#     Debug mode    (if compiled in)
X */
X
X#include <stdio.h>
X#include "dmouse.h"
X
X#define VERSION 20
X
X#ifdef LATTICE
X#include <dos.h>
X#include <stdlib.h>
X#include <string.h>
X
Xint __stdargs CXBRK(void);
X
X__stdargs    /*  bug in lcr.lib  */
XCXBRK()
X{
X    return(0);
X}
X
X#else
Xextern int Enable_Abort;    /*    CLI break enable    */
X#endif
X
Xlong    ahtoi ARGS((char *));
Xvoid    main ARGS((int, char **));
X
Xvoid
Xmain(ac, av)
Xint ac;
Xchar *av[];
X{
X    reg short i, j, len;
X    reg long val;
X    reg char *ptr;
X    reg DMS  *dms = (DMS *)FindPort(PORTNAME);
X    short   exists = (dms != NULL);
X    short   create = (dms == NULL);
X    short   quit = 0;
X
X#ifndef LATTICE
X    Enable_Abort = 0;
X#endif
X    if (create) {
X    dms = AllocMem(sizeof(DMS), MEMF_PUBLIC|MEMF_CLEAR);
X    dms->IPri = 51;
X    dms->Version = VERSION;
X    dms->Acc = 3;
X    dms->STo = 5*60;
X    dms->MTo = 5;
X    dms->Code = 0x45;
X    dms->Qual = 0x8040;
X    dms->RQual= 0x4000;
X    dms->Clicks = 1;
X    dms->CLeft = dms->Clicks;
X    strcpy(dms->Cmd, "newcli");
X    dms->LMBEnable = 1;
X    dms->AAEnable = 3;
X    dms->NoSprData = AllocMem(12, MEMF_PUBLIC|MEMF_CHIP|MEMF_CLEAR);
X    dms->NoSprData[0] = 0xFE00;
X    dms->NoSprData[1] = 0xFF00;
X    }
X
X    for (i = 1; i < ac; ++i) {
X    ptr = av[i];
X    if (strcmp(ptr, "QUIT") == 0 || strcmp(ptr, "quit") == 0) {
X        quit = 1;
X        create = 0;
X        break;
X    }
X    val = atoi(ptr+2);
X    if (*ptr != '-')
X        goto def;
X
X    switch(ptr[1]) {
X    case 'd':
X        dms->Debug = val;
X        break;
X    case 'a':
X        dms->Acc = val;
X        break;
X    case 'c':
X        if (val < 1)
X        val = 1;
X        dms->Clicks = dms->CLeft = val;
X        break;
X    case 'w':
X        dms->Workbench = val;
X        break;
X    case 'p':
X        dms->IPri = val;
X        break;
X    case 't':
X        dms->AThresh = val;
X        break;
X    case 's':
X        dms->STo = val;
X        break;
X    case 'm':
X        dms->MTo = val;
X        break;
X    case 'L':
X        dms->LMBEnable = val;
X        break;
X    case 'l':
X        dms->LQual = ahtoi(ptr+2);
X        break;
X    case 'R':
X        dms->RQual = ahtoi(ptr+2);
X        break;
X    case 'A':
X        dms->AAEnable = val;
X        break;
X    case 'K':
X        dms->Code = ahtoi(ptr+2);
X        break;
X    case 'Q':
X        dms->Qual = ahtoi(ptr+2) | 0x8000;
X        break;
X    case 'S':
X    case 'M':
X        puts("-S and -M options obsolete");
X        break;
X    case 'C':
X        for (len = strlen(ptr+2) + 2, j = i + 1; j < ac; ++j)
X        len += strlen(av[j]) + 1;
X        strcpy(dms->Cmd, ptr + 2);
X        for (j = i + 1; j < ac; ++j) {
X        if (dms->Cmd[0])
X            strcat(dms->Cmd, " ");
X        strcat(dms->Cmd, av[j]);
X        }
X        i = ac;
X        break;
X    default:    def:
X        puts("DMOUSE QUIT  or");
X        puts("DMOUSE -a# -t# -s# -m# -Ln -Rqqqq -An -Kcccc -Qqqqq -C cmd");
X        printf("DMouse (c)Copyright 1989, Matthew Dillon, All Rights Reserved\nV1.%02d, 3 August 1989\n\n", VERSION);
X        puts("Freeware, redistributable for non-profit only");
X        puts("  -a#     Acceleration (default 3)");
X        puts("  -t#     Accel. threshold (default 0)");
X        puts("  -s#     Screen timeout (default 300)");
X        puts("  -m#     Mouse timeout (default 5)");
X        puts("  -c#     Set # of clicks for wintofront (default 1)");
X        puts("  -p#     # = input device priority");
X        puts("  -w#     0 = use UpFrontLayer().. 1 = use WindowToFront()");
X        puts("  -L0/1   LMB disable/enable (default 1=enabled)");
X        puts("  -lqqqq  LMB qualifier wintofront (default 0=none)");
X        puts("  -Rqqqq  RMB qualifier wintoback (default 4000=LMB)");
X        puts("  -A0-3   Auto-Activate Window disable/enable. B0=mouse B1=keyboard");
X        puts("  -Kcccc  Command Key Code, default 45 = esc");
X        puts("  -Qqqqq  Command Key Qualifier, default 40 = Left Amiga");
X        puts("  -C cmd  cmd to run, must be last option");
X        puts("Note: LMB(or -R qualifier)(hold)+RMB = WindowToBack");
X        puts("\n");
X        puts("Additionaly, Most options may be modified while DMOUSE is active");
X        create = 0;
X        i = ac;
X        break;
X    }
X    }
X    dms->Reset = 1;
X    if (!exists && create) {
X    PROC *proc;
X    printf("Installing DMouse, ");
X    fflush(stdout);
X    dms->Port.mp_Flags = PA_IGNORE;
X    dms->Port.mp_Node.ln_Pri = 0;
X    dms->Port.mp_Node.ln_Type= NT_MSGPORT;
X    dms->Port.mp_Node.ln_Name= AllocMem(sizeof(PORTNAME), MEMF_PUBLIC);
X    strcpy(dms->Port.mp_Node.ln_Name, PORTNAME);
X    NewList(&dms->Port.mp_MsgList);
X    dms->Segment = (long)LoadSeg("l:DMouse-Handler");
X    if (!dms->Segment)
X        dms->Segment = (long)LoadSeg("DMouse-Handler");
X    if (!dms->Segment) {
X        puts("Unable to find L:DMouse-Handler");
X        FreeMem(dms->Port.mp_Node.ln_Name, sizeof(PORTNAME));
X        create = 0;
X    } else {
X        AddPort(&dms->Port);
X        dms->ShakeTask = FindTask(NULL);
X        dms->ShakeSig = AllocSignal(-1);
X        proc = (PROC *)CreateProc(dms->Port.mp_Node.ln_Name, 1, dms->Segment, 4096);
X        Wait(1 << dms->ShakeSig);
X        FreeSignal(dms->ShakeSig);
X        exists = 1;
X        quit = dms->StartupError;
X        if (quit)
X        puts("Handler error");
X        else
X        printf("ok.  DMouse V1.%02d, by Matthew Dillon.\n(c)Copyright 1989, Matthew Dillon, All Rights Reserved\n", VERSION);
X    }
X    }
X    if (quit) {
X    if (exists) {
X        printf("Removing, ");
X        fflush(stdout);
X        dms->ShakeTask = FindTask(NULL);
X        dms->ShakeSig = AllocSignal(-1);
X        Signal(dms->HandTask, SBF_C);
X        Wait(1 << dms->ShakeSig);
X        FreeSignal(dms->ShakeSig);
X        RemPort(&dms->Port);
X        FreeMem(dms->Port.mp_Node.ln_Name, sizeof(PORTNAME));
X        UnLoadSeg(dms->Segment);
X        puts("ok");
X    }
X    exists = 0;
X    create = 0;
X    }
X    if (!exists) {
X    FreeMem(dms->NoSprData, 12);
X    FreeMem(dms, sizeof(DMS));
X    }
X}
X
Xlong
Xahtoi(str)
Xreg char *str;
X{
X    reg long val = 0;
X    reg char c;
X    while (c = *str) {
X    val <<= 4;
X    if (c >= '0' && c <= '9')
X        val |= (c & 15);
X    else
X        val |= (c & 15) + 9;
X    ++str;
X    }
X    return(val);
X}
X
X
SHAR_EOF
echo "extracting dmouse.doc"
sed 's/^X//' << \SHAR_EOF > dmouse.doc
X
XV1.20               DMOUSE.DOC           3 August 1989
X
X              Matthew Dillon
X              891 Regal Rd
X              Berkeley, California 94708
X              USA
X
X    DMouse (c)Copyright 1989 by Matthew Dillon, All Rights Reserved
X
X    Refer to BLANKER.DOC and DMOUSE-IPC.DOC for information on external
Xscreen blankers.
X
X    NOTES:    * dres.library no longer required.
X        * IPC mechanism changed
X
X    WORKBENCH USERS:    PLEASE READ THE REVISION HISTORY FOR V1.09 FOR
XPARTIAL SOLUTION TO INTUITION WINDOWTOFRONT() BUG.
X
X    YAIH (Yet Another Input Handler)... nahh, like DMouse better...
Xfor "Dillon's Mouse"???  V1.20 and beyond are no longer in public domain,
Xbut copyright to me.  They are still 'freeware'.
X
X    After looking at and rejecting several mouse-intuition input
Xhandler enhancers (you know, accelerate the mouse, click-to-front, etc...)
Xand finding them all useless, I have written my own.
X
X    - Any option can be turned on or off at any time.
X
X    - Screen blanks if keyboard or mouse is idle > N1 secs (default 300)
X        (mouse also blanks even if mouse blanking not turned on) One
X        can install a more sophisticated screen blanker (e.g. one that
X        brings up a pattern or something) if they wish.
X
X    - The Pesky Mouse blanks if mouse is idle > N2 secs (def 5)
X
X    - Auto Activate a window when the mouse is moved over it.  Window
X      also activated (if not already active) when you type.  These
X      two features may be turned on/off independantly
X
X    - Mouse Accelerator.  Back feeds power into the mouse unit;
X      give it a nudge and it is guarenteed to penetrate up to an
X      inch and a half of wall plaster (programmable depth).  Once
X      you start using it, you won't be able to switch back!
X
X    - Programmable command-key and command string ala PopCli, default
X      left-Amiga ESC.
X
X    - Left Mouse Button click in window brings it to the front
X        DOES NOT BRING THE WINDOW TO THE FRONT IF IT IS ALREADY
X        IN THE FRONT.  Other programs would call WindowToFront() on
X        every click, which is horrible if you have a simple-refresh
X        window.  WindowToFront() is NOT called for backdrop windows!
X
X        The qualifier along with the LMB is now settable with the -l option.
X
X      # clicks required is settable.
X
X    - Hold LMB, click Right Mouse Button .. Window to Back!  Great
X      for cycling windows.    See next feature for more info.
X
X      (the qualifier, normally the left mouse button, can be set with
X       the -R option).
X
X    - Same sequence as above, but if there is no window under the
X      current mouse position, there is only one window on the screen,
X      or the window under the mouse is a BACKDROP window, the
X      sequence cycles through Screens!
X
X    - NO DAMN CLOCK.  Use another utility to get a clock.  No other
X      glossy thrills.  DMouse is short, sweet, and functional.
X
X    - Does not use a CLI, should be placed in your startup-sequence.
X      DO NOT 'RUN' DMOUSE!
X
XINSTALLATION:
X
X    Place dmouse-handler in L: (or in the 'current' directory when DMOUSE
X    is run).
X
X    WORKBENCH USERS!!!!!!!!!!    There appears to be a bug in intuition's
X    WindowToFront() call, which can lock up intuition when workbench
X    icons are active.  Under the defaults, this will occur whenever you
X    depress the left mouse button over an icon.
X
X    A partial fix is in place V1.07 and beyond.  However, if you find
X    it still freezing up, the problem can be avoided as follows:  Either
X    turn off the left-mouse-button window- to-front feature (-L0) or leave
X    it on and set the number of clicks required to 2 (-c2) (and don't use
X    the feature while your mouse is over an icon).  V1.09 gives you yet
X    a THIRD option which is even more preferable ... change the qualifier
X    that goes along with the left mouse button to something other than 0,
X    like 3 (either shift). -l3
X
X    BLANKER:    To use a third party blanker (currently only the example at
X    this time) just run it in the background after you run dmouse.
X
X
XEXECUTE FROM A CLI (e.g. WORKBENCH STARTUP SCRIPT), example:
X
X    1> dmouse -c2 -l0 -C c:newshell "<nil: >nil: newcon:320/120/320/80/Shell"
X
X    There is no need to 'RUN' DMouse.  A double set of quotes may be
X    required for the program to work properly with ConMan.
X
X    NOTE:   The shell startup script should immediately CD somewhere.  DMouse
X        does not remember the cli's path.
X
XTO KILL:
X
X    1> dmouse QUIT
X
XIPC SUPPORT:
X
X    IPC support has changed radically due to removal of dres.library from
X    the required list.    The reason for the change is that I have been getting
X    my programs to compile under both Lattice and Aztec and did not want to
X    port dres.library to Lattice C.
X
X    Please refer to the example blanker programs and dmouse-ipc.doc for
X    more information.
X
X
XSOURCE:
X
X    Source is compileable under Aztec, +L (32 bit ints) and suitable
X    precompiled include file (remember the precompiled include file must
X    be precompiled with +L also).  Use the c32.lib library (Aztec C)
X
X    Source is also compileable under Lattice C V5.02 and beyond.
X
X    You need a working sup32.lib library to compile DMouse.  The library
X    source also includes the local/*.h includes and DMakefiles for making
X    precompiled include files.
X
XCOMMAND LINE ARGUMENTS:
X
X    If DMouse is already running, any specified options will be
X    incorporated.
X
X    quit    QUIT .. remove DMouse
X    -h        HELP
X    -a#     Set acceleration to #.    Default 3,         1 disables option
X    -t#     Set mouse acceleration threshhold, pixs/ev. default 0.
X    -s#     Set screen timeout to # (secs), Default 300, 0 disables option
X    -m#     Set mouse timeout to # (secs), Defalut 5,    0 disabled option
X    -c#     Set # of clicks required to bring window to front (def 1)
X    -p#     Set input handler priority (def 51) should always be > 50
X        (initial invocation only)
X
X    -w#     0 = use UpFrontLayer() etc... 1 = use WindowToFront() etc...
X        WindowToFront() properly refreshes SIMPLE_REFRESH windows
X        but a bug intuition can cause it to crash the machine if
X        a workbench icon is active at the time.
X
X    -L0/1    Disable/Enable left-button brings window to front
X    -A0-3    Disable/Enable AUTO-ACTIVATE. Bit #0 = mouse auto-activate
X                          #1 = keyboard auto-activate
X            (default 3, which enables both)
X
X    -lqqqq    Set Qualifier (HEX) with LMB for Window To Front (default is
X         0, meaning no qualifier).  Example:    -l0003 sets it to
X         either shift key.
X
X    -Rqqqq    Set Qualifier (HEX) with RMB for Window To Back (default is
X         the LMB qualifier).  Setting the qualifier to 0 disables
X         the feature.
X
X    -Kcccc    Set Keycode (HEX)   for command key (default 0045)
X
X    -Qqqqq    Set Qualifier (HEX) for command key (default 0040)
X
X    -C CMD    Set Command to run.  Default is NEWCLI.  Remaining arguments
X        on command line is the command.
X
X    -S/-M    REMOVED.  Obsoleted by new IPC mechanism.
X
X            QUALIFIERS (always entered in HEX)
X
X    0001    Left Shift
X    0002    Right Shift
X    0004    Caps Lock
X    0008    Control
X    0010    Left Alt
X    0020    Right Alt
X    0040    Left Amiga Key
X    0080    Right Amiga Key
X    0100    Numeric Key Pad Key (not useful for dmouse)
X    0200    Repeat        (not useful for dmouse)
X    0400    Interrupt        (not useful for dmouse)
X    0800    Multibroadcast    (not useful for dmouse)
X    1000    Middle Mouse Button (not normally implemented by intuition)
X    2000    Right Mouse Button
X    4000    Left Mouse Button
X
X    Note:    Combinations are allowed, in which case any one of the
X        selected qualifiers along with the left, right mouse button
X        or command key will cause the appropriate action to occur.
X
X
XRELEASE HISTORY:
X
XV1.20
X    -3rd party IPC mechanism fixed.  A new mechanism is now in place.
X
XV1.16
X    -Code fixed to compile under either Manx C 3.6 or Lattice C 5.02
X    -3rd party screen blanker supported removed due to removal of
X     dnet.library (which is too difficult to port at this time).
X
XV1.14
X    -minor bug fixes.  DLineArt added to distribution (removed again in
X     1.16 temporarily)
X
XV1.13
X    -d option (debug mode if compiled in) not compiled in on release
X       binaries
X    -You can now bring up a new cli without having to move the mouse from
X     its initial (power up) position.
X    -Checks if the copper list stuff it modifies is valid.  If not, does
X     not modify the copper list stuff (you loose mouse blanking instead of
X     crashing the machine for those using the hires board)
X
X
XV1.12
X    -S option added, external screen blanker supported.
X    -M option added, external mouse blanker supported.
X    -IPC commands changed to 'mouse on/off' 'screen on/off', they used
X     to be 'mouse / nomouse' and 'blank / noblank'.
X
XV1.11
X    -Intelligent requester handling: auto-activate is disabled while the
X     active window has a requester in it.  Slight modification of key
X     handling (key-up events are ignored by DMouse).  Addition of
X     text-based IPC to blank/unblank the mouse/screen.
X
XV1.10
X    -Fixed -A bug ... -A2 now enables auto-activate-on-key and disables
X     auto-activate-on-mouse
X
XV1.09
X
X    Workbench users probably want to use the following options: -w1 -l0003
X    These use WindowToFront() (your windows get refreshed properly), but
X    also requires you to depress a shift key + LMB to get the window-to-front
X    feature.
X
X    dmouse -w1 -l0003
X
X    -SELECTABLE USE OF UpFrontLayer() etc..  OR  WindowToFront() etc...
X     Workbench users should use WindowToFront() (-w1), while CLI users
X     probably want to use UpFrontLayer() (default).
X
X     Reason:    WindowToFront()/Back can crash the Amiga if called while
X     a workbench ICON is highlighted.  Unfortunetly, UpFrontLayer(), which
X     does not have the bug, also does not automatically refresh
X     simple-refresh windows!
X
X    -New option -lqqqq (SET QUALIFIER WITH LEFT MOUSE BUTTON TO GET
X     WINDOW-TO-FRONT FEATURE).    WORKBENCH USERS NOTE:  By setting this
X     qualifier to a shift key, for instance, you can safely move icons
X     around without crashing the machine because DMouse will not issue
X     the WindowToFront() call unless you are holding the qualifier key
X     down while pressing the left mouse button.
X
X    -Bug fixed thanks to user persistance!  If you disable mouse blanking,
X     and enable screen blanking (which blanks the mouse too when it
X     happens), hitting a key would bring back the screen but not the mouse.
X
XV1.08
X     Botched.
X
XV1.07
X    -All intuition calls are made from an independant process rather than
X     the input handler routine.  This also fixes a couple of deadlock bugs,
X     but not the workbench-icon deadlock bug.
X    -Mouse response is no longer jerky when the system is loaded down.
X    -Keyboard-Auto-Activate-Window independant of Mouse-Auto-Activate-Window
X     (enhanced -A option)
X    -No need to OR the -Q qualifier with 8000 anymore
X    -WindowToFront() never called for backdrop windows, which ought to fix
X     the workbench freeze bug and other problems.
X    -Mouse automatically blanked when screen blanks, whether mouse blanking
X     is enabled or not.
X    -Can set input handler priority (initial invocation only).
X    -New Timeouts go into effect immediately rather than after the
X     next mouse/keyboard event.
X
XV1.00-V1.06
X    Before Written history
X
X
SHAR_EOF
echo "extracting dmouse.h"
sed 's/^X//' << \SHAR_EOF > dmouse.h
X
X/*
X *  DMOUSE.H
X */
X
X#include <local/typedefs.h>
X
X#define DMS struct _DMS
X#define REQ struct _REQ
X
X#define PORTNAME    "DMouse"
X
X#define REQ_SCREENON    -1
X#define REQ_SCREENOFF    -2
X#define REQ_MOUSEON    -3
X#define REQ_MOUSEOFF    -4
X#define REQ_DOCMD    -5
X#define REQ_RAWMOUSE    -6
X#define REQ_RAWKEY    -7
X#define REQ_DEBUG    -8
X#define REQ_DEBUGOFF    -9
X
X#define SBF_C    SIGBREAKF_CTRL_C
X#define SBF_D    SIGBREAKF_CTRL_D
X#define SBF_E    SIGBREAKF_CTRL_E
X#define SBF_F    SIGBREAKF_CTRL_F
X
Xtypedef struct IOStdReq     IOR;
Xtypedef struct Interrupt    INT;
Xtypedef struct timeval        TS;
Xtypedef void            (*FPTR)();
X
X
XDMS {
X    PORT    Port;
X    short   Version;
X    short   Acc;
X    short   AThresh;
X    long    STo;
X    long    MTo;
X    uword   Code;
X    uword   Qual;
X    uword   RQual;        /*    Right button qualifier    */
X    uword   LQual;        /*    Left button qualifier    */
X    char    Cmd[256];
X    char    LMBEnable;
X    char    AAEnable;
X    char    IPri;
X    char    FSEnable;        /*    Foreign Screen Enable    */
X    char    Workbench;        /*    Use WindowToFront/Back    */
X    char    Debug;        /*    Debug Mode        */
X    char    Reserved3;
X    TASK    *HandTask;
X    TASK    *ShakeTask;
X    short   ShakeSig;
X    short   StartupError;
X    uword   *NoSprData;
X    long    Segment;
X
X    uword   Clicks;    /*  # clicks required        */
X    uword   CLeft;    /*  # clicks left to do     */
X    TS        CTime;    /*  time of last click        */
X    WIN     *CWin;    /*  All clicks in same window    */
X    char    Reset;    /*  Option modified, reset tos    */
X
X    char    *MRemote;    /*  Remote mouse blanker (obsolete) */
X    char    *SRemote;    /*  Remote screen blanker(obsolete) */
X    long    DLock[2];    /*  synchronizing lock     (obsolete) */
X};
X
XREQ {
X    MSG     Msg;
X    TS        ie_TimeStamp;
X    ubyte   ie_Class;
X    uword   ie_Code;
X    uword   ie_Qualifier;
X};
X
X
SHAR_EOF
echo "End of archive 1 (of 1)"
# if you want to concatenate archives, remove anything after this line
exit